home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 87 / 087.d81 / text printer / text printer.0829 / text printer.a7ae (.txt)
Encoding:
Commodore BASIC  |  1991-01-01  |  50.0 KB  |  85 lines
  1. 5 poke53281,0:poke53280,0:print"[147][159]"
  2. 10 poke55,.:poke56,64:clr
  3. 11 dv=peek(186):ifdv<8thendv=8
  4. 110 q$=chr$(34):c=54272
  5. 115 tp$="[147][150]    [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 1"
  6. 120 dim na$(288),le$(288),pc%(23)
  7. 130 printtp$:printtab(10)"by the [204][207][193][196][211][212][193][210] [196]udes"
  8. 140 print"[159]  [201]nsert the disk with the "q$"t."q$" [159]files"
  9. 145 printtab(11)"and press [211][208][193][195][197][154]."
  10. 150 geta$:ifa$<>" "then150
  11. 160 printtp$:print"[159][210]eading all "q$"prg"q$" [159]files with "q$"t."q$" [159]names."
  12. 180 j=0:sys50176,"$t.*",dv
  13. 182 ifst<>64theninput#3,le$(j),na$(j),a$:j=j+1:sys50179:goto182
  14. 190 printtp$
  15. 225 ifj=2thenprint"[159] [212]here are no "q$"t."q$" [159]files on this disk.":goto1990
  16. 230 print"[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
  17. 231 printtab(20-(len(na$(0))/2)-1)"[179][129]"na$(0)"[158][171]"
  18. 232 fori=1toj-2:print"  [158][221]"tab(13)"[154]"na$(i)tab(30)"[152]"le$(i)tab(37)"[158][221]":next
  19. 234 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  20. 240 k=1
  21. 245 poke214,21:print:print" [195][210][211][210] keys[159] select  [211][208][193][195][197] [159]toggle  [193] [159]all"
  22. 247 print" [208] [159]print highlighted files  [206][159] new disk"
  23. 248 print"    [214] [159]view pointed-at file   [209][159] quit"
  24. 250 poke214,k+2:print:printtab(10)"[153][192]>[145]":poke198,0
  25. 260 geta$:ifa$=""then260
  26. 261 printtab(10)"  [145]"
  27. 262 ifa$="[145]"thenk=k-1:ifk<1thenk=j-2
  28. 263 ifa$=""thenk=k+1:ifk>j-2thenk=1
  29. 264 ifa$="q"then2000
  30. 265 ifa$="p"then300
  31. 266 ifa$="n"thenrun110
  32. 267 ifa$="v"thensys51200,na$(k),"[212][197][216][212] [210][197][193][196][197][210] 1991":goto250
  33. 268 ifa$<>"a"then280
  34. 269 print"":fori=1toj-2
  35. 270 ifpc%(i)=0thenprinttab(13)""na$(i):pc%(i)=1:goto274
  36. 272 ifpc%(i)thenprinttab(13)"[154]"na$(i):pc%(i)=0
  37. 274 next:goto240
  38. 280 ifa$<>" "then250
  39. 282 ifpc%(k)thenpc%(k)=0:printtab(13)"[154]"na$(k):goto250
  40. 284 pc%(k)=1:printtab(13)""na$(k):goto250
  41. 300 fori=1toj:ifpc%(i)theni=j:next:goto302
  42. 301 next:goto250
  43. 302 sys51200,"":gosub1000:sys51200,"":ifa$="4"then250
  44. 303 fori=22to24:poke781,i:sys59903:next
  45. 304 poke214,22:print:print"       [154]([208][154])ause   ([195][154])ontinue   ([211][154])top"
  46. 305 open4,4,7:fori=1toj:ifpc%(i)=0then380
  47. 306 poke214,i+2:print:print"[153][210]eading[145]"
  48. 310 sys57812na$(i),8,0:poke780,0:poke781,0:poke782,64:sys65493
  49. 320 poke(peek(174)+256*peek(175)),0
  50. 330 print"[153][208]rinting[145]"
  51. 335 print#4,na$(0);
  52. 340 iffl=1thensys49152,16384:goto360
  53. 345 iffl=2thensys49158,16384:goto360
  54. 350 iffl=3thensys49155,16384
  55. 360 print"[153]        [145]"
  56. 380 nexti:close4:goto2000
  57. 1000 print"[147][159]"tp$
  58. 1092 print"[155]    [205]ake sure your printer is on-line"
  59. 1094 print" and the print head is set to the top"
  60. 1096 print" of a page."
  61. 1100 print"  [159](1[159]) [211]ingle 38-character column with"
  62. 1105 print"      a left margin of 24."
  63. 1110 print"  [159](2[159]) [211]ingle 65-character column with"
  64. 1115 print"      a left margin of 10."
  65. 1120 print"  [159](3[159]) [212]wo 38-character columns with"
  66. 1125 print"      a left margin of 0."
  67. 1127 print"  [159](4[159]) [210]eturn to previous screen."
  68. 1130 print"[155]            [212]ake your pick."
  69. 1140 geta$:ifa$<"1"ora$>"4"then1140
  70. 1150 fl=val(a$)
  71. 1160 return
  72. 1990 fort=1to2000:next
  73. 2000 print"[147]"
  74. 2002 print"  [211][208][193][195][197][159]  do another disk"
  75. 2005 print"  [210][197][212][213][210][206][159] head back to [204][207][193][196][211][212][193][210] [194]riefs"
  76. 2010 poke198,.
  77. 2020 geta$:ifa$<>" "anda$<>chr$(13)then2020
  78. 2030 ifa$=" "thenrun110
  79. 2040 open15,8,15,"r0:ls briefs=ls briefs":input#15,er:close15
  80. 2050 ifer<>63thenend
  81. 2060 print"[147][144]load"q$"ls briefs"q$",8"
  82. 2070 print"run"
  83. 2080 poke631,13:poke632,13:poke198,2:end
  84. 10000 open15,8,15,"s0:text printer":close15:save"text printer",8:end
  85.